home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / CCMAIL.SMM < prev    next >
Encoding:
INI File  |  1992-11-18  |  6.3 KB  |  461 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Arranca cc:Mail de Lotus.
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec
  22.     noautorun
  23.     717186589
  24.     19
  25.     676763487
  26.     6
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Est<\a>ndar
  57.     5
  58.     [fnt]
  59.         Tms Rmn
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         17
  71.         0
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         24
  103.         1
  104.         2
  105.         ,
  106.         .
  107.         Pts
  108.     Est<\a>ndar
  109.     0
  110.     0
  111. [tag]
  112.     Standard
  113.     6
  114.     [fnt]
  115.         Tms Rmn
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         17
  127.         0
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         0
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         24
  159.         1
  160.         2
  161.         ,
  162.         .
  163.         Pts
  164.     Standard
  165.     0
  166.     0
  167. [l1]
  168.     0
  169. [pg]
  170.     2
  171.     49 0 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  172.     76 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  173. [edoc]
  174. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  175.  
  176. <:#279,9025>
  177.  
  178. @Function@<:#293,9025>function execsuite()
  179.  
  180. <:#279,9025>app = "wmail.exe"
  181.  
  182. appname = "cc:Mail para Windows"
  183.  
  184. <:#279,9025>defdir = "c:\ccmail"
  185.  
  186. <:#279,9025>ignorekeyboard(2)
  187.  
  188. <:#279,9025>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  189.  
  190. <:#279,9025>declare getprofile(xappname)
  191.  
  192. <:#279,9025>declare writeprofile(path, xappname)
  193.  
  194. <:#279,9025>declare tryit(path, xapp)
  195.  
  196. <:#279,9025>defstr path;
  197.  
  198. <:#279,9025>
  199.  
  200. <:#279,9025>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  201.  
  202. <:#279,9025>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  203.  
  204. <:#279,9025>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  205.  
  206. <:#279,9025>    return 1
  207.  
  208. <:#279,9025>endif
  209.  
  210. <:#279,9025>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  211.  
  212. <:#279,9025>    if tryit("", app) <;> 31
  213.  
  214. <:#279,9025>        return 1
  215.  
  216. <:#279,9025>    endif
  217.  
  218. <:#279,9025>endif
  219.  
  220. <:#279,9025>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  221.  
  222. <:#279,9025>    return 1
  223.  
  224. <:#279,9025>endif
  225.  
  226. <:#279,9025>again:
  227.  
  228. <:#279,9025>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  229.  
  230. <:#279,9025>    if tryit(path, app) <;> 31
  231.  
  232. <:#279,9025>        writeprofile(path, appname)
  233.  
  234. <:#279,9025>    else
  235.  
  236. <:#279,9025>        goto again
  237.  
  238. <:#279,9025>    endif
  239.  
  240. <:#279,9025>endif
  241.  
  242. <:#279,9025>end function
  243.  
  244. <:#279,9025>
  245.  
  246. @Function@<:#293,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  247.  
  248. <:#279,9025>doschdir(path)
  249.  
  250. <:#279,9025>return exec(strcat$(path, app), "")
  251.  
  252. <:#279,9025>end function
  253.  
  254. <:#279,9025>
  255.  
  256. @Function@<:#293,9025>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  257.  
  258. <:#279,9025>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  259.  
  260. <:#279,9025>end function
  261.  
  262. <:#279,9025>
  263.  
  264. @Function@<:#293,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  265.  
  266. <:#279,9025>defstr path;
  267.  
  268. <:#279,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  269.  
  270. <:#279,9025>    return path
  271.  
  272. <:#279,9025>endif
  273.  
  274. <:#279,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
  275.  
  276. <:#279,9025>end function
  277.  
  278. <:#279,9025>
  279.  
  280. @Function@<:#293,9025>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  281.  
  282. <:#279,9025>defstr box;
  283.  
  284. <:#279,9025>filledit(9001, "*.exe")
  285.  
  286. <:#279,9025>filledit(8007, app)
  287.  
  288. <:#279,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  289.  
  290. <:#279,9025>    return 0
  291.  
  292. <:#279,9025>endif
  293.  
  294. <:#279,9025>return getcurrentdir$()
  295.  
  296. <:#279,9025>end function
  297.  
  298. <:#279,9025>
  299.  
  300. <:#279,9025>
  301.  
  302. @Function@<:#293,9025>DIALOG findapp
  303.  
  304. -2134376448 7 70 35 200 97 "" "" "B<\z>squeda de la aplicaci<\s>n"
  305.  
  306. <:#279,9025>FONT 8 "Helv"
  307.  
  308. 7 34 59 8 1000 1342177280 "static" "&V<\m>a de acceso:" 0 
  309.  
  310. <:#279,9025>6 45 60 44 9001 1352728579 "listbox" "" 0 
  311.  
  312. 155 5 40 14 1 1342373889 "button" "Aceptar" 0 
  313.  
  314. 155 21 40 14 2 1342373888 "button" "Cancelar" 0 
  315.  
  316. <:#279,9025>68 34 80 8 7999 1342177280 "static" "" 0 
  317.  
  318. 7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0 
  319.  
  320. <:#279,9025>7 16 107 8 8007 1342177280 "static" "" 0 
  321.  
  322. <:#279,9025>END DIALOG
  323.  
  324. <:#279,9025>
  325.  
  326. >
  327.  
  328. [Embedded]
  329. 00004817
  330. >
  331. [macsum] 6
  332. execsuite 0 0 5 2
  333. tryit 532 2 1 36
  334. writeprofile 613 2 1 41
  335. getprofile 687 1 2 45
  336. missouri 861 1 2 53
  337. findapp 1018 0 -1 64
  338. [macse]
  339. 14 execsuite
  340. 7 "wmail.exe"
  341. 8 1
  342. 7 "cc:Mail para Windows"
  343. 8 2
  344. 7 "c:\ccmail"
  345. 8 3
  346. 0 32 2
  347. 0 1032 "{2}"
  348. 13
  349. 11 00000162
  350. 0 38 "{2}"
  351. 0 1031 "{2}"
  352. 5 1
  353. 15
  354. 9
  355. 5 0
  356. 0 781 "{3}"
  357. 13
  358. 18 0
  359. 11 00000263
  360. 16 tryit "" "{1}"
  361. 13
  362. 5 31
  363. 18 3
  364. 11 00000263
  365. 5 1
  366. 15
  367. 9
  368. 16 getprofile "{2}"
  369. 13
  370. 16 tryit [X] "{1}"
  371. 13
  372. 5 31
  373. 18 3
  374. 11 00000349
  375. 5 1
  376. 15
  377. 9
  378. 16 missouri "{1}"
  379. 13
  380. 0 805 &4 [X]
  381. 13
  382. 5 0
  383. 18 1
  384. 11 00000520
  385. 16 tryit "{4}" "{1}"
  386. 13
  387. 5 31
  388. 18 3
  389. 11 00000507
  390. 16 writeprofile "{4}" "{2}"
  391. 10 00000520
  392. 10 00000349
  393. 6 0
  394. 15
  395. 9
  396. 14 tryit
  397. 0 781 "{0}"
  398. 0 16 "{0}" "{1}"
  399. 13
  400. 0 22 [X] ""
  401. 13
  402. 15
  403. 9
  404. 6 2
  405. 15
  406. 9
  407. 14 writeprofile
  408. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  409. 6 2
  410. 15
  411. 9
  412. 14 getprofile
  413. 0 286 "LotusApps" "{0}" "amipro2.ini"
  414. 13
  415. 0 805 &2 [X]
  416. 13
  417. 7 ""
  418. 18 1
  419. 11 00000113
  420. 6 2
  421. 15
  422. 9
  423. 0 286 "LotusApps" "{0}" "amipro.ini"
  424. 13
  425. 15
  426. 9
  427. 6 1
  428. 15
  429. 9
  430. 14 missouri
  431. 0 31 9001 "*.exe"
  432. 0 31 8007 "{0}"
  433. 0 26 "." "findapp"
  434. 13
  435. 0 805 &2 [X]
  436. 13
  437. 5 1
  438. 18 1
  439. 11 00000127
  440. 5 0
  441. 15
  442. 9
  443. 0 290
  444. 13
  445. 15
  446. 9
  447. 6 1
  448. 15
  449. 9
  450. DIALOG findapp
  451. -2134376448 7 70 35 200 97 "" "" "B·squeda de la aplicaci≤n" 
  452. FONT 8 "Helv" 
  453. 7 34 59 8 1000 1342177280 "static" "&Vφa de acceso:" 0 
  454. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  455. 155 5 40 14 1 1342373889 "button" "Aceptar" 0 
  456. 155 21 40 14 2 1342373888 "button" "Cancelar" 0 
  457. 68 34 80 8 7999 1342177280 "static" "" 0 
  458. 7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0 
  459. 7 16 107 8 8007 1342177280 "static" "" 0 
  460. 00004842
  461.